home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / hd_installers / jstsw_usr / install-french < prev    next >
Text File  |  1999-02-08  |  2KB  |  83 lines
  1. (set bin-dest
  2.      (askdir (prompt "Où désirez-vous que les fichiers binaires\n(JST, créateurs d'images disque, fichiers code) soient installés?\n"
  3.                              "Aucun tiroir ne sera crée\n\nLe tiroir doit être dans votre PATH (ex. C:)")
  4.                      (help @askdir-help)
  5.                      (default "C:")
  6.                      (newpath)
  7.       )
  8. )
  9.  
  10.  
  11. (if (exists "Travail:" (noreq) )
  12.     (set @default-dest "Travail:")
  13.     (if (exists "SYS:Travail" (noreq) )
  14.         (set @default-dest "SYS:Travail")
  15.     )
  16.      (set @default-dest "SYS:")
  17. )
  18.  
  19.  
  20.  
  21. ;ask the user to select a directory to install the other files
  22.  
  23. (set default-dest
  24.      (tackon (askdir (prompt "Où désirez-vous que les fichiers auxiliaires (docs,exemples) soient installés?\n"
  25.                              "Un tiroir JST sera créé.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      "JST"
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34.  
  35. ;create the selected directory
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39.  
  40. (set doc-dest (tackon @default-dest "docs"))
  41.  
  42.  
  43. (makedir doc-dest
  44.          (infos)
  45. )
  46.  
  47. (if (exists "sources" )
  48.   (
  49.     (set source-dest (tackon @default-dest "sources"))
  50.  
  51.     (makedir source-dest
  52.            (infos)
  53.     )
  54.     (copyfiles (source "sources")
  55.              (dest source-dest)
  56.          (all)
  57.     )
  58.   )
  59.  
  60.  
  61. )
  62.  
  63.  
  64. (copyfiles (source "bin")
  65.            (dest bin-dest)
  66.        (all)
  67. )
  68.  
  69. (copyfiles (source "docs/engonly")
  70.            (dest doc-dest)
  71.        (all)
  72. )
  73.  
  74. (copyfiles (source "docs/french")
  75.            (dest doc-dest)
  76.        (all)
  77. )
  78.  
  79. ; cleanup
  80.  
  81. (delete (tackon bin-dest "README"))
  82. (delete (tackon bin-dest "README.info"))
  83.